﻿Imports System.Collections.Generic
Partial Class ejemplomail
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cita As AppointmentBLLDEV
        Dim Invitados As New List(Of String)
        'Invitados.Add("jburga@certero.com.pe")
        Dim item() As Char = {";"}
        Dim strFrom() As String = txtfrom.Text.Trim().Split(item)
        Dim strTo As String = txtTo.Text.ToString().Trim()
        Dim strToClave As String = txtclave.Text
        Dim strSmtp As String = txtsmtp.Text.Trim
        For Each it As String In strFrom
            Invitados.Add(it)
        Next
        
        cita = New AppointmentBLLDEV(DateTime.Now, DateTime.Now, "Hola este es el asunto", "la objservacion", "es el lugar", Nothing, Invitados, "asunto", strTo, strToClave, strSmtp)
        Cita.EmailAppointment()
    End Sub
End Class
